unit newproject;
(*
  srcstr
    newproject.pas - New Project form
    (c)2006-2012 Matthew Hipkin <http://www.matthewhipkin.co.uk>
*)
{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls, EditBtn;

type

  { TfrmNewProject }

  TfrmNewProject = class(TForm)
    btnOK: TButton;
    btnCancel: TButton;
    checkAddFiles: TCheckBox;
    textDirectory: TDirectoryEdit;
    Label1: TLabel;
    Label2: TLabel;
    textDescription: TMemo;
    textTitle: TLabeledEdit;
    procedure btnCancelClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmNewProject: TfrmNewProject;

implementation

{$R *.lfm}

{ TfrmNewProject }

procedure TfrmNewProject.btnOKClick(Sender: TObject);
begin
  ModalResult := mrOK;
end;

procedure TfrmNewProject.btnCancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

end.
